home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_Time / Developer / Oberon / txt / MCCTime.mod
Text File  |  1997-08-17  |  2KB  |  87 lines
  1. MODULE MCCTime;
  2.  
  3. (*
  4. **
  5. ** Copyright © 1996-1997 Kai Hofmann. All rights reserved.
  6. ** Registered MUI custom class!
  7. **
  8. ** $VER: MCCTime.mod 12.4 (17.08.97)
  9. **
  10. *)
  11.  
  12.   IMPORT
  13.     mb := MuiBasics,
  14.     u  := Utility,
  15.     I  := Intuition,
  16.     y  := SYSTEM;
  17.  
  18.   CONST
  19.     (*cTime                *= "Time.mcc";*)
  20.  
  21.     aTimeMidnightSecs            *= 081EE0080H;
  22.     aTimeHour                *= 081EE0081H;
  23.     aTimeMinute                *= 081EE0082H;
  24.     aTimeSecond                *= 081EE0083H;
  25.     aTimeMinHour            *= 081EE0084H;
  26.     aTimeMinMinute            *= 081EE0085H;
  27.     aTimeMinSecond            *= 081EE0086H;
  28.     aTimeMaxHour            *= 081EE0087H;
  29.     aTimeMaxMinute            *= 081EE0088H;
  30.     aTimeMaxSecond            *= 081EE0089H;
  31.     aTimeZoneMinute            *= 081EE008BH;
  32.     aTimeNextDay            *= 081EE008CH;
  33.     aTimePrevDay            *= 081EE008DH;
  34.     aTimeDaylightSaving            *= 081EE008EH;
  35.     aTimeChangeHour            *= 081EE008FH;
  36.     aTimeChangeDay            *= 081EE0095H;
  37.  
  38.  
  39.     vTimeChangeDayNormal        *= 0;
  40.     vTimeChangeDayWinterToSummer    *= 1;
  41.     vTimeChangeDaySummerToWinter    *= 2;
  42.  
  43.  
  44.     vTimeCompareLess            *= -1;
  45.     vTimeCompareEqual            *=  0;
  46.     vTimeCompareGreater            *=  1;
  47.  
  48.  
  49.     mTimeIncrease            *= 081EE0092H;
  50.     mTimeDecrease            *= 081EE0093H;
  51.     mTimeSetCurrent            *= 081EE0094H;
  52.     mTimeCompare            *= 081EE0096H;
  53.  
  54.  
  55.   TYPE
  56.     pTimeIncrease *=
  57.       STRUCT
  58.         MethodID    *: LONGINT;
  59.         seconds        *: LONGINT;
  60.       END;
  61.     pTimeDecrease *=
  62.       STRUCT
  63.         MethodID    *: LONGINT;
  64.         seconds        *: LONGINT;
  65.       END;
  66.     pTimeSetCurrent *=
  67.       STRUCT
  68.         MethodID    *: LONGINT;
  69.       END;
  70.     pTimeCompare *=
  71.       STRUCT
  72.         MethodID    *: LONGINT;
  73.         obj        *: I.ObjectPtr;
  74.       END;
  75.  
  76.  
  77.   (*PROCEDURE TimeObject *{"Time.TimeObjectA"} (tags{9}..: u.Tag);*)
  78.  
  79.  
  80.   (*PROCEDURE TimeObjectA *(tags{9}: u.TagListPtr);
  81.  
  82.   BEGIN
  83.     mb.NewObjectA(y.ADR(cTime),tags);
  84.   END TimeObjectA;*)
  85.  
  86. END MCCTime.
  87.